const s:string = 'Message Test';
var a, b:word;
procedure proc(var a,b:word);
begin
	writeln(s);
end;
begin
	a:=2;
	b:=4;
	proc(a,b);
	writeln(s);
end.